home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 050a.dms / 050a.adf / EXAMPLE_PROGRAMS / example13.AMOS / example13.amosSourceCode
AMOS Source Code  |  1992-02-26  |  2KB  |  46 lines
  1. '==================
  2. Rem EXAMPLE13.Amos 
  3. '==================
  4.  
  5.  
  6. Rem Setting up your own custom screen
  7.  
  8.  
  9. Rem This is the line that does it all, the first number (0) the screen id
  10. Rem for your reference. The 250 is the width of the screen in pixels.
  11. Rem the 80 is the height and the 4 is the amount of colours required,
  12. Rem you can select lowres or hires, tinker with these numbers and see what 
  13. Rem what happens. You can't do any harm. 
  14. '--------------------------------------------------------------------------- 
  15. Screen Open 0,250,80,4,Lowres
  16.  
  17.  
  18. Rem The following block of code should now be familiar to you. 
  19. '------------------------------------------------------------- 
  20. Curs Off : Centre "THIS IS NOW SCREEN 0"
  21. Print : Print : Centre "SCREEN OPEN 0,150,40,4,LOWRES"
  22. Print : Print : Centre "TRY MOVING THE MOUSE AROUND"
  23. Print : Print : Centre "Press any key"
  24. Clear Key : Wait Key 
  25.  
  26.  
  27. Rem A full view hires screen 
  28. '----------------------------
  29. Screen Open 0,640,256,8,Hires
  30.  
  31.  
  32. Rem this block of code should also be easy to follow 
  33. Rem if it isn't you need to re-read the relevent chapters. 
  34. '---------------------------------------------------------   
  35. Curs Off : Paper 7 : Cls 7
  36. Centre "This is a full Hi res screen"
  37. Locate 0,10
  38. Centre "Good for text intensive programs such as a Word processor."
  39. Locate 0,15 : Centre "This gives 80 characters across the screen instead of the usual 40."
  40. Locate 0,20 : Centre "Now press a key to revert back to the default Amos screen."
  41. Clear Key : Wait Key 
  42.  
  43.  
  44. Rem This command returns everthing to Amos's system defaults including screens.
  45. '------------------------------------------------------------------------------
  46. Default